<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "https://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" lang="en-US">
<head>
<meta http-equiv="Content-Type" content="text/xhtml;charset=UTF-8"/>
<meta http-equiv="X-UA-Compatible" content="IE=11"/>
<meta name="generator" content="Doxygen 1.12.0"/>
<meta name="viewport" content="width=device-width, initial-scale=1"/>
<title>Dataset-JSON v1.1 Hands-On Implementation Training: macros/cstutilxptwrite.sas Source File</title>
<link href="../../tabs.css" rel="stylesheet" type="text/css"/>
<script type="text/javascript" src="../../jquery.js"></script>
<script type="text/javascript" src="../../dynsections.js"></script>
<script type="text/javascript" src="../../clipboard.js"></script>
<link href="../../navtree.css" rel="stylesheet" type="text/css"/>
<script type="text/javascript" src="../../navtreedata.js"></script>
<script type="text/javascript" src="../../navtree.js"></script>
<script type="text/javascript" src="../../resize.js"></script>
<script type="text/javascript" src="../../cookie.js"></script>
<link href="../../search/search.css" rel="stylesheet" type="text/css"/>
<script type="text/javascript" src="../../search/searchdata.js"></script>
<script type="text/javascript" src="../../search/search.js"></script>
<link href="../../doxygen.css" rel="stylesheet" type="text/css" />
</head>
<body>
<div id="top"><!-- do not remove this div, it is closed by doxygen! -->
<div id="titlearea">
<table cellspacing="0" cellpadding="0">
 <tbody>
 <tr id="projectrow">
  <td id="projectalign">
   <div id="projectname">Dataset-JSON v1.1 Hands-On Implementation Training
   </div>
   <div id="projectbrief">Dataset-JSON v1.1 Hands-On Implementation Training</div>
  </td>
 </tr>
 </tbody>
</table>
</div>
<!-- end header part -->
<!-- Generated by Doxygen 1.12.0 -->
<script type="text/javascript">
/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
var searchBox = new SearchBox("searchBox", "../../search/",'.html');
/* @license-end */
</script>
<script type="text/javascript">
/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
$(function() { codefold.init(1); });
/* @license-end */
</script>
<script type="text/javascript" src="../../menudata.js"></script>
<script type="text/javascript" src="../../menu.js"></script>
<script type="text/javascript">
/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
$(function() {
  initMenu('../../',true,false,'search.php','Search',true);
  $(function() { init_search(); });
});
/* @license-end */
</script>
<div id="main-nav"></div>
</div><!-- top -->
<div id="side-nav" class="ui-resizable side-nav-resizable">
  <div id="nav-tree">
    <div id="nav-tree-contents">
      <div id="nav-sync" class="sync"></div>
    </div>
  </div>
  <div id="splitbar" style="-moz-user-select:none;" 
       class="ui-resizable-handle">
  </div>
</div>
<script type="text/javascript">
/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
$(function(){initNavTree('d2/d00/cstutilxptwrite_8sas_source.html','../../'); initResizable(true); });
/* @license-end */
</script>
<div id="doc-content">
<!-- window showing the filter options -->
<div id="MSearchSelectWindow"
     onmouseover="return searchBox.OnSearchSelectShow()"
     onmouseout="return searchBox.OnSearchSelectHide()"
     onkeydown="return searchBox.OnSearchSelectKey(event)">
</div>

<!-- iframe showing the search results (closed by default) -->
<div id="MSearchResultsWindow">
<div id="MSearchResults">
<div class="SRPage">
<div id="SRIndex">
<div id="SRResults"></div>
<div class="SRStatus" id="Loading">Loading...</div>
<div class="SRStatus" id="Searching">Searching...</div>
<div class="SRStatus" id="NoMatches">No Matches</div>
</div>
</div>
</div>
</div>

<div class="header">
  <div class="headertitle"><div class="title">cstutilxptwrite.sas</div></div>
</div><!--header-->
<div class="contents">
<div class="fragment"><div class="line"><a id="l00001" name="l00001"></a><span class="lineno">    1</span>%* Copyright (c) 2022, SAS Institute Inc., Cary, NC, USA.  All Rights Reserved.   *;</div>
<div class="line"><a id="l00002" name="l00002"></a><span class="lineno">    2</span>%* SPDX-License-Identifier: Apache-2.0                                            *;</div>
<div class="line"><a id="l00003" name="l00003"></a><span class="lineno">    3</span>%*                                                                                *;</div>
<div class="line"><a id="l00004" name="l00004"></a><span class="lineno">    4</span>%* cstutilxptwrite                                                                *;</div>
<div class="line"><a id="l00005" name="l00005"></a><span class="lineno">    5</span>%*                                                                                *;</div>
<div class="line"><a id="l00006" name="l00006"></a><span class="lineno">    6</span>%* Creates SAS Version 5 XPORT files from a library of SAS data sets.             *;</div>
<div class="line"><a id="l00007" name="l00007"></a><span class="lineno">    7</span>%*                                                                                *;</div>
<div class="line"><a id="l00008" name="l00008"></a><span class="lineno">    8</span>%* This macro creates SAS Version 5 XPORT files from a library of SAS data sets.  *;</div>
<div class="line"><a id="l00009" name="l00009"></a><span class="lineno">    9</span>%*                                                                                *;</div>
<div class="line"><a id="l00010" name="l00010"></a><span class="lineno">   10</span>%* Notes:                                                                         *;</div>
<div class="line"><a id="l00011" name="l00011"></a><span class="lineno">   11</span>%*   1. Any librefs referenced in macro parameters must be pre-allocated.         *;</div>
<div class="line"><a id="l00012" name="l00012"></a><span class="lineno">   12</span>%*   2. All SAS data sets are located in one library.                             *;</div>
<div class="line"><a id="l00013" name="l00013"></a><span class="lineno">   13</span>%*   3. Existing SAS Version 5 XPORT files are overwritten.                       *;</div>
<div class="line"><a id="l00014" name="l00014"></a><span class="lineno">   14</span>%*                                                                                *;</div>
<div class="line"><a id="l00015" name="l00015"></a><span class="lineno">   15</span>%* @macvar _cst_rc Task error status                                              *;</div>
<div class="line"><a id="l00016" name="l00016"></a><span class="lineno">   16</span>%* @macvar _cst_rcmsg Message associated with _cst_rc                             *;</div>
<div class="line"><a id="l00017" name="l00017"></a><span class="lineno">   17</span>%*                                                                                *;</div>
<div class="line"><a id="l00018" name="l00018"></a><span class="lineno">   18</span>%* @param _cstSourceLibrary - required - The libref of the data folder/library    *;</div>
<div class="line"><a id="l00019" name="l00019"></a><span class="lineno">   19</span>%*            in which the SAS data files are located.                            *;</div>
<div class="line"><a id="l00020" name="l00020"></a><span class="lineno">   20</span>%* @param _cstOutputFolder - required - The folder in which to create the SAS     *;</div>
<div class="line"><a id="l00021" name="l00021"></a><span class="lineno">   21</span>%*            Version 5 XPORT (XPT) files.                                        *;</div>
<div class="line"><a id="l00022" name="l00022"></a><span class="lineno">   22</span>%* @param _cstOptions - optional - Extra options <span class="keywordflow">for</span> the PROC COPY statement.     *;</div>
<div class="line"><a id="l00023" name="l00023"></a><span class="lineno">   23</span>%* @param _cstReturn - required - The macro variable that contains the <span class="keywordflow">return</span>     *;</div>
<div class="line"><a id="l00024" name="l00024"></a><span class="lineno">   24</span>%*            value as <span class="keyword">set</span> by <span class="keyword">this</span> macro.                                         *;</div>
<div class="line"><a id="l00025" name="l00025"></a><span class="lineno">   25</span>%*            Default: _cst_rc                                                    *;</div>
<div class="line"><a id="l00026" name="l00026"></a><span class="lineno">   26</span>%* @param _cstReturnMsg - required - The macro variable that contains the <span class="keywordflow">return</span>  *;</div>
<div class="line"><a id="l00027" name="l00027"></a><span class="lineno">   27</span>%*            message as <span class="keyword">set</span> by <span class="keyword">this</span> macro.                                       *;</div>
<div class="line"><a id="l00028" name="l00028"></a><span class="lineno">   28</span>%*            Default: _cst_rcmsg                                                 *;</div>
<div class="line"><a id="l00029" name="l00029"></a><span class="lineno">   29</span>%*                                                                                *;</div>
<div class="line"><a id="l00030" name="l00030"></a><span class="lineno">   30</span>%* @since 1.7                                                                     *;</div>
<div class="line"><a id="l00031" name="l00031"></a><span class="lineno">   31</span>%* @exposure external                                                             *;</div>
<div class="line"><a id="l00032" name="l00032"></a><span class="lineno">   32</span> </div>
<div class="line"><a id="l00033" name="l00033"></a><span class="lineno">   33</span>%macro cstutilxptwrite(</div>
<div class="line"><a id="l00034" name="l00034"></a><span class="lineno">   34</span>  _cstSourceLibrary=, </div>
<div class="line"><a id="l00035" name="l00035"></a><span class="lineno">   35</span>  _cstOutputFolder=,</div>
<div class="line"><a id="l00036" name="l00036"></a><span class="lineno">   36</span>  _cstOptions=,</div>
<div class="line"><a id="l00037" name="l00037"></a><span class="lineno">   37</span>  _cstReturn=_cst_rc,</div>
<div class="line"><a id="l00038" name="l00038"></a><span class="lineno">   38</span>  _cstReturnMsg=_cst_rcmsg</div>
<div class="line"><a id="l00039" name="l00039"></a><span class="lineno">   39</span>  ) / des=<span class="stringliteral">&#39;CST: Create XPT files from SAS Data Sets&#39;</span>;</div>
<div class="line"><a id="l00040" name="l00040"></a><span class="lineno">   40</span> </div>
<div class="line"><a id="l00041" name="l00041"></a><span class="lineno">   41</span>  %local </div>
<div class="line"><a id="l00042" name="l00042"></a><span class="lineno">   42</span>    _cstSrcMacro</div>
<div class="line"><a id="l00043" name="l00043"></a><span class="lineno">   43</span>    _cstDatasets</div>
<div class="line"><a id="l00044" name="l00044"></a><span class="lineno">   44</span>    _cstCounter </div>
<div class="line"><a id="l00045" name="l00045"></a><span class="lineno">   45</span>    _cstRandom</div>
<div class="line"><a id="l00046" name="l00046"></a><span class="lineno">   46</span>    dsid</div>
<div class="line"><a id="l00047" name="l00047"></a><span class="lineno">   47</span>    ;</div>
<div class="line"><a id="l00048" name="l00048"></a><span class="lineno">   48</span> </div>
<div class="line"><a id="l00049" name="l00049"></a><span class="lineno">   49</span>  %let _cstSrcMacro=&amp;SYSMACRONAME;</div>
<div class="line"><a id="l00050" name="l00050"></a><span class="lineno">   50</span>  %let _cstRandom=%sysfunc(putn(%sysevalf(%sysfunc(ranuni(0))*10000,floor),z4.));</div>
<div class="line"><a id="l00051" name="l00051"></a><span class="lineno">   51</span>  </div>
<div class="line"><a id="l00052" name="l00052"></a><span class="lineno">   52</span>  %***************************************************;</div>
<div class="line"><a id="l00053" name="l00053"></a><span class="lineno">   53</span>  %*  Check _cstReturn and _cstReturnMsg parameters  *;</div>
<div class="line"><a id="l00054" name="l00054"></a><span class="lineno">   54</span>  %***************************************************;</div>
<div class="line"><a id="l00055" name="l00055"></a><span class="lineno">   55</span>  %<span class="keywordflow">if</span> (%length(&amp;_cstReturn)=0) or (%length(&amp;_cstReturnMsg)=0) %then</div>
<div class="line"><a id="l00056" name="l00056"></a><span class="lineno">   56</span>  %<span class="keywordflow">do</span>;</div>
<div class="line"><a id="l00057" name="l00057"></a><span class="lineno">   57</span>    %* We are not able to communicate other than to the LOG;</div>
<div class="line"><a id="l00058" name="l00058"></a><span class="lineno">   58</span>    %put [CSTLOG%str(MESSAGE).&amp;sysmacroname] ERR%str(OR): %str</div>
<div class="line"><a id="l00059" name="l00059"></a><span class="lineno">   59</span>      ()macro parameters _CSTRETURN and _CSTRETURNMSG can not be missing.;</div>
<div class="line"><a id="l00060" name="l00060"></a><span class="lineno">   60</span>    %<span class="keywordflow">goto</span> exit_macro;</div>
<div class="line"><a id="l00061" name="l00061"></a><span class="lineno">   61</span>  %end;</div>
<div class="line"><a id="l00062" name="l00062"></a><span class="lineno">   62</span> </div>
<div class="line"><a id="l00063" name="l00063"></a><span class="lineno">   63</span>  %<span class="keywordflow">if</span> (%eval(not %symexist(&amp;_cstReturn))) %then %global &amp;_cstReturn;</div>
<div class="line"><a id="l00064" name="l00064"></a><span class="lineno">   64</span>  %<span class="keywordflow">if</span> (%eval(not %symexist(&amp;_cstReturnMsg))) %then %global &amp;_cstReturnMsg;</div>
<div class="line"><a id="l00065" name="l00065"></a><span class="lineno">   65</span> </div>
<div class="line"><a id="l00066" name="l00066"></a><span class="lineno">   66</span>  %*************************************************;</div>
<div class="line"><a id="l00067" name="l00067"></a><span class="lineno">   67</span>  %*  Set _cstReturn and _cstReturnMsg parameters  *;</div>
<div class="line"><a id="l00068" name="l00068"></a><span class="lineno">   68</span>  %*************************************************;</div>
<div class="line"><a id="l00069" name="l00069"></a><span class="lineno">   69</span>  %let &amp;_cstReturn=0;</div>
<div class="line"><a id="l00070" name="l00070"></a><span class="lineno">   70</span>  %let &amp;_cstReturnMsg=;</div>
<div class="line"><a id="l00071" name="l00071"></a><span class="lineno">   71</span> </div>
<div class="line"><a id="l00072" name="l00072"></a><span class="lineno">   72</span>  %************************;</div>
<div class="line"><a id="l00073" name="l00073"></a><span class="lineno">   73</span>  %* Parameter checking   *;</div>
<div class="line"><a id="l00074" name="l00074"></a><span class="lineno">   74</span>  %************************;</div>
<div class="line"><a id="l00075" name="l00075"></a><span class="lineno">   75</span> </div>
<div class="line"><a id="l00076" name="l00076"></a><span class="lineno">   76</span>  %<span class="keywordflow">if</span> %sysevalf(%superq(_cstSourceLibrary)=, <span class="keywordtype">boolean</span>) %then</div>
<div class="line"><a id="l00077" name="l00077"></a><span class="lineno">   77</span>  %<span class="keywordflow">do</span>;</div>
<div class="line"><a id="l00078" name="l00078"></a><span class="lineno">   78</span>    %* Rule: _cstSourceLibrary must be specified  *;</div>
<div class="line"><a id="l00079" name="l00079"></a><span class="lineno">   79</span>    %let &amp;_cstReturn=1;</div>
<div class="line"><a id="l00080" name="l00080"></a><span class="lineno">   80</span>    %let &amp;_cstReturnMsg=_cstSourceLibrary must be specified.;</div>
<div class="line"><a id="l00081" name="l00081"></a><span class="lineno">   81</span>    %<span class="keywordflow">goto</span> exit_error;</div>
<div class="line"><a id="l00082" name="l00082"></a><span class="lineno">   82</span>  %end;</div>
<div class="line"><a id="l00083" name="l00083"></a><span class="lineno">   83</span> </div>
<div class="line"><a id="l00084" name="l00084"></a><span class="lineno">   84</span>  %<span class="keywordflow">if</span> %sysevalf(%superq(_cstOutputFolder)=, <span class="keywordtype">boolean</span>) %then</div>
<div class="line"><a id="l00085" name="l00085"></a><span class="lineno">   85</span>  %<span class="keywordflow">do</span>;</div>
<div class="line"><a id="l00086" name="l00086"></a><span class="lineno">   86</span>    %* Rule: _cstOutputFolder must be specified  *;</div>
<div class="line"><a id="l00087" name="l00087"></a><span class="lineno">   87</span>    %let &amp;_cstReturn=1;</div>
<div class="line"><a id="l00088" name="l00088"></a><span class="lineno">   88</span>    %let &amp;_cstReturnMsg=_cstOutputFolder must be specified.;</div>
<div class="line"><a id="l00089" name="l00089"></a><span class="lineno">   89</span>    %<span class="keywordflow">goto</span> exit_error;</div>
<div class="line"><a id="l00090" name="l00090"></a><span class="lineno">   90</span>  %end;</div>
<div class="line"><a id="l00091" name="l00091"></a><span class="lineno">   91</span> </div>
<div class="line"><a id="l00092" name="l00092"></a><span class="lineno">   92</span>  %<span class="keywordflow">if</span> %sysfunc(libref(&amp;_cstSourceLibrary)) %then</div>
<div class="line"><a id="l00093" name="l00093"></a><span class="lineno">   93</span>  %<span class="keywordflow">do</span>;</div>
<div class="line"><a id="l00094" name="l00094"></a><span class="lineno">   94</span>    %* Rule: If _cstSourceLibrary is specified, it must exist  *;</div>
<div class="line"><a id="l00095" name="l00095"></a><span class="lineno">   95</span>    %let &amp;_cstReturn=1;</div>
<div class="line"><a id="l00096" name="l00096"></a><span class="lineno">   96</span>    %let &amp;_cstReturnMsg=The libref _cstSourceLibrary=&amp;_cstSourceLibrary has not been pre-allocated.;</div>
<div class="line"><a id="l00097" name="l00097"></a><span class="lineno">   97</span>    %<span class="keywordflow">goto</span> exit_error;</div>
<div class="line"><a id="l00098" name="l00098"></a><span class="lineno">   98</span>  %end;</div>
<div class="line"><a id="l00099" name="l00099"></a><span class="lineno">   99</span> </div>
<div class="line"><a id="l00100" name="l00100"></a><span class="lineno">  100</span>  %<span class="keywordflow">if</span> %sysfunc(filename(_cstDir,&amp;_cstOutputFolder)) ne 0</div>
<div class="line"><a id="l00101" name="l00101"></a><span class="lineno">  101</span>    %then %put %sysfunc(sysmsg());</div>
<div class="line"><a id="l00102" name="l00102"></a><span class="lineno">  102</span>  %<span class="keywordflow">if</span> not %sysfunc(fexist(&amp;_cstDir)) %then</div>
<div class="line"><a id="l00103" name="l00103"></a><span class="lineno">  103</span>  %<span class="keywordflow">do</span>;</div>
<div class="line"><a id="l00104" name="l00104"></a><span class="lineno">  104</span>    %* Rule: folder _cstOutputFolder must exist  *;</div>
<div class="line"><a id="l00105" name="l00105"></a><span class="lineno">  105</span>    %let &amp;_cstReturn = 1;</div>
<div class="line"><a id="l00106" name="l00106"></a><span class="lineno">  106</span>    %let &amp;_cstReturnMsg = Specified folder _cstOutputFolder=&amp;_cstOutputFolder does not exist;</div>
<div class="line"><a id="l00107" name="l00107"></a><span class="lineno">  107</span>    %<span class="keywordflow">goto</span> exit_error;</div>
<div class="line"><a id="l00108" name="l00108"></a><span class="lineno">  108</span>  %end;</div>
<div class="line"><a id="l00109" name="l00109"></a><span class="lineno">  109</span> </div>
<div class="line"><a id="l00110" name="l00110"></a><span class="lineno">  110</span>  %************************;</div>
<div class="line"><a id="l00111" name="l00111"></a><span class="lineno">  111</span>  %* Loop through library *;</div>
<div class="line"><a id="l00112" name="l00112"></a><span class="lineno">  112</span>  %************************;</div>
<div class="line"><a id="l00113" name="l00113"></a><span class="lineno">  113</span> </div>
<div class="line"><a id="l00114" name="l00114"></a><span class="lineno">  114</span>  DATA _null_;</div>
<div class="line"><a id="l00115" name="l00115"></a><span class="lineno">  115</span>  length mvname $8;</div>
<div class="line"><a id="l00116" name="l00116"></a><span class="lineno">  116</span>    SET sashelp.vtable(where=(upcase(libname)=<span class="stringliteral">&quot;%upcase(&amp;_cstSourceLibrary)&quot;</span>)) end=end;</div>
<div class="line"><a id="l00117" name="l00117"></a><span class="lineno">  117</span>    i+1;</div>
<div class="line"><a id="l00118" name="l00118"></a><span class="lineno">  118</span>    mvname=<span class="stringliteral">&quot;ds&quot;</span>||left(put(i,2.));</div>
<div class="line"><a id="l00119" name="l00119"></a><span class="lineno">  119</span>    call symputx(mvname,kcompress(klowcase(memname)));</div>
<div class="line"><a id="l00120" name="l00120"></a><span class="lineno">  120</span>    <span class="keywordflow">if</span> end then call symputx(<span class="stringliteral">&#39;_cstDatasets&#39;</span>,kleft(put(_n_,2.)));</div>
<div class="line"><a id="l00121" name="l00121"></a><span class="lineno">  121</span>  run;</div>
<div class="line"><a id="l00122" name="l00122"></a><span class="lineno">  122</span>  </div>
<div class="line"><a id="l00123" name="l00123"></a><span class="lineno">  123</span>  %<span class="keywordflow">do</span> _cstCounter=1 %to &amp;_cstDatasets;</div>
<div class="line"><a id="l00124" name="l00124"></a><span class="lineno">  124</span>    </div>
<div class="line"><a id="l00125" name="l00125"></a><span class="lineno">  125</span>    %<span class="keywordflow">if</span> %sysfunc(libname(xpt&amp;_cstRandom, &amp;_cstOutputFolder/&amp;&amp;ds&amp;_cstCounter...xpt, xport)) ne 0</div>
<div class="line"><a id="l00126" name="l00126"></a><span class="lineno">  126</span>      %then %put %sysfunc(sysmsg());</div>
<div class="line"><a id="l00127" name="l00127"></a><span class="lineno">  127</span>    %* libname xpt&amp;_cstRandom xport <span class="stringliteral">&quot;&amp;_cstOutputFolder/&amp;&amp;ds&amp;_cstCounter...xpt&quot;</span>;</div>
<div class="line"><a id="l00128" name="l00128"></a><span class="lineno">  128</span>    proc copy in=&amp;_cstSourceLibrary OUT=xpt&amp;_cstRandom &amp;_cstOptions; </div>
<div class="line"><a id="l00129" name="l00129"></a><span class="lineno">  129</span>      select &amp;&amp;ds&amp;_cstCounter;</div>
<div class="line"><a id="l00130" name="l00130"></a><span class="lineno">  130</span>    run;</div>
<div class="line"><a id="l00131" name="l00131"></a><span class="lineno">  131</span>    %* libname xpt&amp;_cstRandom clear;</div>
<div class="line"><a id="l00132" name="l00132"></a><span class="lineno">  132</span>    %<span class="keywordflow">if</span> %sysfunc(libname(xpt&amp;_cstRandom)) ne 0</div>
<div class="line"><a id="l00133" name="l00133"></a><span class="lineno">  133</span>      %then %put %sysfunc(sysmsg());</div>
<div class="line"><a id="l00134" name="l00134"></a><span class="lineno">  134</span> </div>
<div class="line"><a id="l00135" name="l00135"></a><span class="lineno">  135</span>  %end;</div>
<div class="line"><a id="l00136" name="l00136"></a><span class="lineno">  136</span> </div>
<div class="line"><a id="l00137" name="l00137"></a><span class="lineno">  137</span>  %****************************;</div>
<div class="line"><a id="l00138" name="l00138"></a><span class="lineno">  138</span>  %*  Handle any errors here  *;</div>
<div class="line"><a id="l00139" name="l00139"></a><span class="lineno">  139</span>  %****************************;</div>
<div class="line"><a id="l00140" name="l00140"></a><span class="lineno">  140</span>%exit_error:</div>
<div class="line"><a id="l00141" name="l00141"></a><span class="lineno">  141</span> </div>
<div class="line"><a id="l00142" name="l00142"></a><span class="lineno">  142</span>  %<span class="keywordflow">if</span> %length(&amp;&amp;&amp;_cstReturnMsg)&gt;0 %then</div>
<div class="line"><a id="l00143" name="l00143"></a><span class="lineno">  143</span>    %put ERR%STR(OR): [CSTLOG%str(MESSAGE).&amp;_cstSrcMacro] &amp;&amp;&amp;_cstReturnMsg;</div>
<div class="line"><a id="l00144" name="l00144"></a><span class="lineno">  144</span> </div>
<div class="line"><a id="l00145" name="l00145"></a><span class="lineno">  145</span>%exit_macro:</div>
<div class="line"><a id="l00146" name="l00146"></a><span class="lineno">  146</span> </div>
<div class="line"><a id="l00147" name="l00147"></a><span class="lineno">  147</span>%mend cstutilxptwrite;</div>
</div><!-- fragment --></div><!-- contents -->
</div><!-- doc-content -->
<!-- start footer part -->
<div id="nav-path" class="navpath"><!-- id is needed for treeview function! -->
  <ul>
    <li class="navelem"><a class="el" href="../../dir_c8843521cc2b354892efaf471a0b361e.html">macros</a></li><li class="navelem"><b>cstutilxptwrite.sas</b></li>
    <li class="footer">Generated by <a href="https://www.doxygen.org/index.html"><img class="footer" src="../../doxygen.svg" width="104" height="31" alt="doxygen"/></a> 1.12.0 </li>
  </ul>
</div>
</body>
</html>
